home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00029.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  1.2 KB  |  62 lines
  1. on enterFrame
  2.   global songnum
  3.   puppetPalette("movie menu palette")
  4.   if (the soundEnabled = 1) and not soundBusy(2) then
  5.     set songnum to random(2)
  6.     sound playFile 2, "song" & songnum
  7.   end if
  8. end
  9.  
  10. on mouseDown
  11.   if (the clickOn >= 17) and (the clickOn <= 20) then
  12.     BUTTONDOWN()
  13.   else
  14.     if the clickOn = 48 then
  15.       puppetSound("click")
  16.     end if
  17.   end if
  18. end
  19.  
  20. on mouseUp
  21.   global voice
  22.   if (the clickOn >= 17) and (the clickOn <= 20) then
  23.     if the clickOn = 17 then
  24.       INFOBUTTON()
  25.     end if
  26.     if the clickOn = 18 then
  27.       set voice to 0
  28.       puppetSprite(25, 0)
  29.       puppetSprite(26, 0)
  30.       puppetSprite(27, 0)
  31.       puppetSprite(12, 0)
  32.       puppetSprite(13, 0)
  33.       puppetSprite(48, 0)
  34.       play frame "hideslideshow"
  35.     end if
  36.     if the clickOn = 19 then
  37.       ADDORDERBUTTON()
  38.     end if
  39.     if the clickOn = 20 then
  40.       puppetSprite(25, 0)
  41.       puppetSprite(26, 0)
  42.       puppetSprite(27, 0)
  43.       puppetSprite(12, 0)
  44.       puppetSprite(13, 0)
  45.       puppetSprite(48, 0)
  46.       set voice to 0
  47.       if soundBusy(2) then
  48.         sound stop 2
  49.       end if
  50.       go("photo")
  51.     end if
  52.   end if
  53.   if the clickOn = 48 then
  54.     CHANGESOUND3B()
  55.   end if
  56. end
  57.  
  58. on exitFrame
  59.   global fixpal
  60.   go(the frame)
  61. end
  62.